home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / doratgk.plp < prev    next >
Text File  |  1993-07-08  |  8KB  |  216 lines
  1. /*    BBS-NETでの処理から一つ取り出す    */
  2. %tgk    {[n]
  3.     var a[26];var b[12];var onenif[100];
  4.     onenif:=@getline(TGK,n,1);
  5.     case(@nth(onenif,1,{/}),
  6.         {ボード},{b:={ボード}},{再ログイン},{b:={再ﾛｸﾞｲﾝ}},
  7.         ,{b:=@nth(onenif,1,{/})});
  8.     case(@nochar(onenif),
  9.         0,{a:={                    }},2,{a:={                    }},
  10.         ,{a:=b|{/}|@nth(onenif,3,{/})|{/}|
  11.             @head(@nth(onenif,2,{/}),{,})});
  12.     case(@nochar(n)=1,{Yes},{a:={0}|n|{:}|a},{No},{a:=n|{:}|a});im(a);
  13.     };
  14. /*    BBS-NETでの処理実行日の指定    */
  15. %date{    select({実行する日を指定して下さい}|{  現在は }|@d2|{ です},
  16.         Wtime4,{im(d1)},
  17.         { 毎  日 },{im({毎日})},{ 奇数日 },{im({奇数})},
  18.         { 偶数日 },{im({偶数})},{ 日  曜 },{im({日曜})},
  19.         { 月  曜 },{im({月曜})},{ 火  曜 },{im({火曜})},
  20.         { 水  曜 },{im({水曜})},{ 木  曜 },{im({木曜})},
  21.         { 金  曜 },{im({金曜})},{ 土  曜 },{im({土曜})},
  22.         {毎月 1日},{im({01日})},{毎月05日},{im({05日})},
  23.         {毎月10日},{im({10日})},{毎月15日},{im({15日})},
  24.         {毎月20日},{im({20日})},{毎月25日},{im({25日})},
  25.         {毎月30日},{im({30日})},
  26.         {複数指定},{SNDMSG({nyuryo_f.snd});
  27.                 %dat @input({実行する日を入力して下さい\n}|
  28.                     {ｶﾝﾏ｢,｣で区切って複数指定可\n}|
  29.                     {例  奇,火,木,日,01,30},,
  30.                         @body(d1,{,},{,}));
  31.                 im({複数,}|dat|{,終わり})},
  32.         {設定なし},{im({未定})});
  33.     };
  34. /*    実行日表示用    */
  35. %d2     {case(d1,
  36.         {毎日},{im({毎  日})},{奇数},{im({奇数日})},
  37.         {偶数},{im({偶数日})},{日曜},{im({日  曜})},
  38.         {月曜},{im({月  曜})},{火曜},{im({火  曜})},
  39.         {水曜},{im({水  曜})},{木曜},{im({木  曜})},
  40.         {金曜},{im({金  曜})},{土曜},{im({土  曜})},
  41.         {01日},{im({毎月 1日})},{05日},{im({毎月 5日})},
  42.         {10日},{im({毎月10日})},{15日},{im({毎月15日})},
  43.         {20日},{im({毎月20日})},{25日},{im({毎月25日})},
  44.         {30日},{im({毎月30日})},{未定},{im({設定無し})},
  45.         {未設定},{im({未設定})},,{im({複数指定})})};
  46. /*    設定情報をファイルに保存する    */
  47. %writeTG{setcdir(CDIR);copyfile(TGKFILE,{ DORATGK.BAK});delfile(TGKFILE);
  48.     write(TGKFILE,{TGK    :=}|@xc({7b})|TGK|@xc({7d})|{;\n});
  49.     SETFILE2:={標準設定};
  50.     };
  51. /*    設定情報をもとに戻す    */
  52. %CANCEL    {SNDMSG({erande_f.snd});footnote({本当にもとに戻してもいいですか？});
  53.     select({本当にもとに戻してもいいですか？},
  54.         Wtime4,,
  55.         { Ｏ Ｋ },
  56.         {case(@filechk(TGKFILE),{Yes},
  57.             {setcdir(CDIR);#DORATGK.SET;SETFILE2:={標準設定}})},
  58.         { Ｎ Ｇ },);
  59.     };
  60. /*    ボードNo.の指定    */
  61. %setFORUM{[n]
  62.     var forum [8];var mes [40];var lib [40];var d1 [40];
  63.     %TGK1    @getline(TGK,n,1);
  64.     d1:=    @case(@nth(TGK1,2,{/}),{},{im({未設定})},
  65.                     ,{im(@nth(TGK1,2,{/}))});
  66.     forum:=    @nth(TGK1,3,{/});    mes:=    @nth(TGK1,4,{/});
  67.     lib:=    @nth(TGK1,5,{/});
  68.     loop    ({
  69.     footnote({巡回するボードを設定してください});SNDMSG({nyuryo_f.snd});
  70.         %a @plane(
  71.             {cネット名「}|NET|{」を指定してください\n}|
  72.             {t  ネット名      /xxxxxx\n}|
  73.             {c巡回するボードを設定してください\n}|
  74.             {t  ボード番号            /\n}|
  75.             {c    指定された会議室の未読を読みます\n}|
  76.             {c    ｶﾝﾏ｢,｣で区切って複数指定可(｢#｣は省略して下さい\n}|
  77.             {c    ｢ALL｣とすると全てのボードを巡回します\n}|
  78.             {t  ライブラリ番号        /\n}|
  79.             {c    指定されたﾗｲﾌﾞﾗﾘの最新のﾃﾞｰﾀ一覧を表示します\n}|
  80.             {c    ｶﾝﾏ｢,｣で区切って複数指定可\n}|
  81.             {c  巡回日  }|@d2|{\n}|
  82.             {s         / 変更 \n}|
  83.             {s                        / 設定 / 削除 / 取消 },
  84.             forum,mes,lib);
  85. forum:=    @head(@getline(a,1,1),{\n});    mes:=    @head(@getline(a,2,1),{\n});
  86. lib:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  87. %ok    @head(@getline(a,5,1),{\n});
  88.         case(sel==1,{Yes},{SNDMSG({erande_f.snd});d1:=@date});
  89.         case(ok,{ 1},{TGK:=    @getline(TGK,1,n-1)|{ボード}|{/}|
  90.                 d1|{/}|forum|{/}|mes|{/}|lib|{/\n}|
  91.                 @getline(TGK,n+1);
  92.             im({No})},
  93.             { 2},{TGK:=    @getline(TGK,1,n-1)|{\n}|
  94.                 @getline(TGK,n+1);
  95.             im({No})},
  96.             { 3},{im({No})},
  97.             ,{case(ok={ 0}&&sel={ 0},
  98.                 {Yes},{im({No})},    /* 右ｸﾘｯｸで終了 */
  99.                 {No},{im({Yes})})}
  100.             );
  101.         });
  102.     };
  103. /*    RTBBS-NETで行う処理を設定する    */
  104. %setTG    {[n]
  105.     case(@nochar(@nth(@getline(TGK,n,1),1,{/})),
  106.         0,{setTG1(n)},    /* 空文字列 */
  107.         2,{setTG1(n)},    /* 改行ｺｰﾄﾞのみ */
  108.         ,
  109.         {SNDMSG({erande_f.snd});footnote({処理を選択してください});
  110.         select({処理を選択してください},
  111.             Wtime4,,
  112.             { 変  更 },{setTG1(n)},
  113.             { 削  除 },{TGK:=@getline(TGK,1,n-1)|{\n}|
  114.                         @getline(TGK,n+1)},
  115.             { 中  止 },);
  116.         });
  117.     };
  118. %setTG1{[n]
  119.     case(@nth(@getline(TGK,n,1),1,{/}),
  120.         {ボード},{setFORUM(n)},
  121.         ,
  122.         {SNDMSG({erande_f.snd});
  123.           footnote(NET|{－ＮＥＴで行う処理を指定して下さい});
  124.           select(NET|{－ＮＥＴで行う処理を指定して下さい},
  125.             Wtime4,,
  126.             {  ボード  },{setFORUM(n)},
  127.             {     終了     },);
  128.         });
  129.     };
  130. /*    NIFTYで行う処理を並べ変える    */
  131. %renTG    {var num[72];var count[72];var TGK2[3074];
  132.     count:=0;num:={};TGK2:={};
  133.     %tg01    @tgk(1);    %tg02    @tgk(2);    %tg03    @tgk(3);        %tg04    @tgk(4);    %tg05    @tgk(5);    %tg06    @tgk(6);
  134.     %tg07    @tgk(7);    %tg08    @tgk(8);    %tg09    @tgk(9);
  135.     %tg10    @tgk(10);    %tg11    @tgk(11);    %tg12    @tgk(12);
  136.  
  137.     %renum    {[n]
  138.         case    (num,{},{num:=n},,{num:=num|{,}|n});
  139.         case(TGK2,{},{TGK2:=@getline(TGK,n,1)},
  140.             ,{TGK2:=TGK2|@getline(TGK,n,1)});
  141.         count:=count+1;
  142.         };
  143.     %cancel1{case(count>0,{Yes},{count:=count-1});
  144.         case(count>0,{Yes},{TGK2:=@getline(TGK2,1,count)},
  145.             {No}, {TGK2:={}});
  146.         num:=@body(num,,{,});
  147.         };
  148.     loop    ({SNDMSG({erande_f.snd});
  149.         footnote(NET|{－ＮＥＴで行う順序を指定して下さい});
  150.         display    ({現在 }|num|{ が指定されています\n});
  151.         select    (NET|{－ＮＥＴで行う順序を指定して下さい},,,
  152.             tg01,{renum(1);im({Yes})},tg02,{renum(2);im({Yes})},
  153.             tg03,{renum(3);im({Yes})},tg04,{renum(4);im({Yes})},
  154.             tg05,{renum(5);im({Yes})},tg06,{renum(6);im({Yes})},
  155.             tg07,{renum(7);im({Yes})},tg08,{renum(8);im({Yes})},
  156.             tg09,{renum(9);im({Yes})},tg10,{renum(10);im({Yes})},
  157.             tg11,{renum(11);im({Yes})},tg12,{renum(12);im({Yes})},
  158.             {    一  個  取  消    },{cancel1;im({Yes})},
  159.             {      全  取  消      },{num:={};TGK2:={};im({Yes})},
  160.             {    指  定  終  了    },{TGK:=TGK2;im({No})});
  161.         });
  162.     };
  163. /*    設定情報をファイルに保存する    */
  164. %SAVE    {var    newfile    [64];SNDMSG({erande_f.snd});
  165.     footnote({設定を保存するファイルを指定して下さい});
  166.     newfile:=@filesel({TG});
  167.     case(newfile<>{},{Yes},{
  168.         %newdir    @getcdir;
  169.         case(@nochar(newdir)==3,
  170.             {Yes},{newfile:=newdir|newfile},
  171.             {No},{newfile:=newdir|{\}|newfile});
  172.         delfile(newfile);
  173.         write(newfile,{TGK    :=}|@xc({7b})|TGK|@xc({7d})|{;\n});
  174.         });
  175.     setcdir(CDIR);
  176.     };
  177. /*    ファイルから設定情報を読み込む    */
  178. %LOAD    {var    newfile    [64];SNDMSG({erande_f.snd});
  179.     footnote({設定を読み込むファイルを指定して下さい});
  180.     newfile:=@filesel({TG});
  181.     case(newfile<>{},{Yes},{
  182.         %newdir    @getcdir;
  183.         case(@nochar(newdir)==3,
  184.             {Yes},{newfile:=newdir|newfile},
  185.             {No},{newfile:=newdir|{\}|newfile});
  186.         case(@filechk(newfile),{Yes},
  187.             {%ExcPilot {#}|newfile;ExcPilot;setcdir(CDIR);
  188.                 SETFILE2:=@tail(newfile,{\})});
  189.         });
  190.     setcdir(CDIR);
  191.     };
  192. /*    BBS-NETで行う処理を設定する    */
  193. %setBBS{loop    ({SNDMSG({erande_f.snd});
  194.     footnote(NET|{－ＮＥＴで行う処理は曜日＆日付で選択出来ますよ});
  195.         select    (NET|{－ＮＥＴで行う処理を指定して下さい},,,
  196.             @tgk(1),{setTG(1);im({Yes})},
  197.             @tgk(2),{setTG(2);im({Yes})},
  198.             @tgk(3),{setTG(3);im({Yes})},
  199.             @tgk(4),{setTG(4);im({Yes})},
  200.             @tgk(5),{setTG(5);im({Yes})},
  201.             @tgk(6),{setTG(6);im({Yes})},
  202.             @tgk(7),{setTG(7);im({Yes})},
  203.             @tgk(8),{setTG(8);im({Yes})},
  204.             @tgk(9),{setTG(9);im({Yes})},
  205.             @tgk(10),{setTG(10);im({Yes})},
  206.             @tgk(11),{setTG(11);im({Yes})},
  207.             @tgk(12),{setTG(12);im({Yes})},
  208.             {     順  序  変  更     },{renTG;  im({Yes})},
  209.              {    元の設定にもどす    },{CANCEL;  im({Yes})},
  210.             {  設定をファイルに保存  },{SAVE;    im({Yes})},
  211.             { ファイルから設定を読込 },{LOAD;    im({Yes})},
  212.             {   設定を保存して終了   },{writeTG;im({No})},
  213.             {保存しない(一時的な変更)},
  214.             {SETFILE2:={一時設定};im({No})}
  215.             )})};
  216. setBBS;